www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_WcafesReg.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>网吧注册</title>
<link href="style/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="../conn.asp"-->
<!--#include file="../Function/Function.asp"-->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%"> </td>
<td width="94%">网吧注册</td>
</tr>
</table></td>
</tr>
</table><br />
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
<tr>
<td><br>
<%if GetUsersSystem("UsersRegOn") =0 then
call ShowErr("<li>暂时关闭注册功能</li>","Users_WcafesReg.asp",0)
End if
Sub RegSave()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_Wcafes"
Rs.open sql,Conn,1,3
Rs.addnew
RS("WcafesName")=NoSqlHack(Request.Form("WcafesName"))
RS("WcafesStartIP")=NoSqlHack(Request.Form("WcafesStartIP"))
RS("WcafesOverIP")=NoSqlHack(Request.Form("WcafesOverIP"))
RS("WcafesStartIPS")=NoSqlHack(EncodeIP(Request.Form("WcafesStartIP")))
RS("WcafesOverIPS")=NoSqlHack(EncodeIP(Request.Form("WcafesOverIP")))
RS("WcafesRegDate")=date()
RS("WcafesUseDate")=date()+NoSqlHack(Request.Form("WcafesUseDate"))
RS("WcafesGroup")=GetUsersSystem("WcafesRegGroup")
'RS("WcafesAdmin")=Request.Form("WcafesAdmin")
RS("WcafesNote")=NoSqlHack("联系人:"&Request.Form("Name")&vbcrlf&"联系QQ："&Request.Form("QQ")&vbcrlf&"联系电话："&Request.Form("Phone"))
RS("WcafesAudit")=0
Rs.Update
Rs.Close
Set Rs = Nothing
response.write"<script>alert('您已经注册成功\n等待管理员审核通过！');location.href = 'Users_Right.asp';</script>"
End Sub
Action=Trim(request("Action"))
Select Case Action
Case "Reg2"
call Reg2()
Case "RegSave"
call RegSave()
Case else
call Reg1()
End Select
sub Reg1()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_UsersRegNotice"
Rs.open sql,Conn,1,1
YWNT_TMS_ID=RS("ID")
YWNT_TMS_RegNotice=RS("RegisterNotice")
RS.close
set RS=nothing%>
<table width="80%" align="center" cellpadding="0" cellspacing="0">
<form action="Users_WcafesReg.asp?Action=Reg2" method="post">
<tr>
<td height="32">注册条款</td>
</tr>
<tr>
<td><div class="textarea"><%=YWNT_TMS_RegNotice%></div>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center"><input type="submit" name="Submit" value="同 意" /></td>
</tr>
</table></td>
</tr>
</form>
</table>
<%end sub
sub Reg2()%>
<script language="javascript" src="js/js.js"></script>
<table width="70%" align="center" cellpadding="0" cellspacing="0">
<form name="form" id="Reg" action="Users_WcafesReg.asp?Action=RegSave" method="post" onSubmit="return Validator.Validate(this,3)">
<tr>
<td width="20%" height="32">网吧名称：</td>
<td colspan="2"><input name="WcafesName" id="WcafesName" size="30" dataType="LimitB" min="3" max="20" msg="网吧名称必须在3,20个字节之内"/> </td>
</tr>
<tr>
<td height="32">网吧起始IP：</td>
<td colspan="2"><input name="WcafesStartIP" size="30" dataType="LimitB" min="1" msg="起始IP不能为空"/>
<font onClick="checkIP();" style="cursor: pointer;">自动检测IP</font></td>
</tr>
<tr>
<td height="32">网吧结束IP：</td>
<td colspan="2"><input name="WcafesOverIP" size="30" dataType="LimitB" min="1" msg="结束IP不能为空"/></td>
</tr>
<tr>
<td height="32">使用时间：</td>
<td colspan="2"><select name="WcafesUseDate" dataType="Require" msg="未选择使用时间" >
<option value="">选择使用时间</option>
<option value="7">一个星期</option>
<option value="30">一个月</option>
<option value="92">一个季度</option>
<option value="184">半年</option>
<option value="365">一年</option>
<option value="730">两年</option>
<option value="36500">永久</option>
</select></td>
</tr>
<tr>
<td height="32">联 系 人：</td>
<td colspan="2"><input name="Name" size="30" maxlength="12" datatype="Chinese" msg="联系人只允许中文"/></td>
</tr>
<tr>
<td height="32">联系 Q Q：</td>
<td colspan="2"><input name="QQ" size="30" maxlength="12" datatype="QQ" msg="QQ号码不存在"/></td>
</tr>
<tr>
<td height="32">联系电话：</td>
<td colspan="2"><input name="Phone" size="30" maxlength="12" dataType="Phone" msg="电话号码不正确"/></td>
</tr>
<tr>
<td colspan="3" height="26"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="29%"> </td>
<td width="71%" height="30"><input type="image" name="imageField" src="images/qd_06.gif" /></td>
</tr>
</table></td>
</tr>
</form>
</table>
<br></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<SCRIPT language=JavaScript type=text/JavaScript>
function checkIP()
{
document.form.WcafesStartIP.value="<%=UsersIP()%>";
document.form.WcafesOverIP.value="<%=UsersIP()%>";
}
</SCRIPT>
<%end sub
call connclose()%>
</body>
</html>